use warnings;
use strict;
use Google_Search;
my $query = shift;

my $google = new Google_Search(verbose=>1, 'licence_key'=> '5RMp7/BQFHL+KFdaq6J2hh3C1D79kxRC') or die "can not create google search object\n";
my @urls = $google->search($query,10);
print join "\n", @urls;
